local shown = false
function DonationMenu()
	shown = not shown
	if !HTMLTest then
	HTMLTest = vgui.Create("HTML")
	HTMLTest:SetPos(( ScrW() / 2 ) - HTMLTest:GetWide() / 2,( ScrH() / 2) - HTMLTest:GetTall() / 2)
	HTMLTest:SetSize(0, 0)
	local htmlcode = [[
<html><style type="text/css">
<!--
body {
	background-color: #646464;
}
-->
</style>
<body style="overflow: hidden">
<object width="250" height="250" align="center"><param name="movie" value="http://widget.chipin.com/widget/id/7f513492399b76fd"></param><param name="allowScriptAccess" value="always"></param><param name="wmode" value="transparent"></param><param name="event_desc" value="Please%20donate%20to%20Aggression%21%21"></param><param name="color_scheme" value="gray"></param><embed src="http://widget.chipin.com/widget/id/7f513492399b76fd" flashVars="event_desc=Please%20donate%20to%20Aggression%21%21&color_scheme=gray" type="application/x-shockwave-flash" allowScriptAccess="always" wmode="transparent" width="250" height="250"></embed></object>
</body>
</html>]]
	HTMLTest:SetHTML( htmlcode )
	HTMLTest.Think = function()
		if shown == false and HTMLTest:GetWide() > 0 then
		HTMLTest:SetSize(HTMLTest:GetWide()-1, HTMLTest:GetTall())
		end
		if shown == true and HTMLTest:GetWide() < 300 then
		HTMLTest:SetSize(HTMLTest:GetWide()+1, HTMLTest:GetTall())
		end
		if shown == false and HTMLTest:GetTall() > 0 then
		HTMLTest:SetSize(HTMLTest:GetWide(), HTMLTest:GetTall()-1)
		end
		if shown == true and HTMLTest:GetTall() < 270 then
		HTMLTest:SetSize(HTMLTest:GetWide(), HTMLTest:GetTall()+1)
		end
		HTMLTest:SetPos(( ScrW() / 2 ) - HTMLTest:GetWide() / 2,( ScrH() / 2) - HTMLTest:GetTall() / 2)
	end
	end
end
usermessage.Hook( "donations", DonationMenu )